home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / gfx / opal / opalbatc.lha / ZapBatch.Rexx < prev   
OS/2 REXX Batch file  |  1993-03-13  |  3KB  |  113 lines
  1. /* 
  2.                                  ZapBatch
  3.                                By J.L. White
  4.                           ©1993 Merlin's Software
  5.  
  6.   This Arexx script will allow you to batch convert a series of frames
  7. using any one of the OpalPaint painting modes. This script was originally
  8. created for use with Transporter SFC software but has been adapted to run
  9. as a script directly in OpalPaint through the Arexx function keys. Just
  10. set the path in the Arexx control panel for this file.
  11.   ZapBatch requires that you pass it the first frame in the series, the 
  12. prefix to save with and how many files to convert. For example, you have
  13. 90 frames of an animation called TEST with the frames named from TEST001
  14. to TEST090. Enter in TEST001 when it ask for the filename. Then it will
  15. ask for a name to save the new files as, which could be something like
  16. DH1:NEWTEST. Next it will ask you how many frames to convert where you 
  17. would enter 90 in this example. You can save the new frames as IFF or JPEG
  18. and you can choose ANY Paint Mode you wish. The files will then be loaded
  19. one by one, zapped with the selected mode and then saved.
  20.   I have been busy adding many new OpalVision features to Transporter. 
  21. Version 1.1 allows users of OpalVision to single frame there animations
  22. to Video with most of the popular SFC cards out there. 1.2 will have alot
  23. more Opal support through out the program, like frame grabbing, slide shows,
  24. and Picture In Picture options. If you would like more information on 
  25. Transporter you can contact me at the address below.
  26.  
  27. Jeff White
  28. 809 W. Hollywood St.
  29. Tampa, Fl. 33604
  30. (813) 977-6511
  31.   
  32. */
  33.  
  34. address "OpalPaint_Rexx"
  35. options Results
  36.  
  37. call GetInName
  38. call GetOutName
  39. call GetTotal
  40. call Convert
  41. Okay "Arexx Script Is Complete!"
  42. exit
  43.  
  44.  
  45.  
  46. Convert:
  47.     do FrameNum = 1+AddNum to TotalFiles+AddNum
  48.         if FrameNum = 1 +AddNum then do
  49.             SaveSetUp
  50.             Key "AMIGA m"
  51.                 AskBool "Select Save Format You Wish To Use?\n\n        Select [OK] For IFF \n\n     Select [CANCEL] For JPEG"
  52.             if Result=0 then do
  53.                 AskProp 1 100 84 "Enter JPEG Compression Value (1 - 100)!"
  54.                 Format = JPEG Result
  55.                 end
  56.             else
  57.                 Format = IFF
  58.                 Saver Format
  59.             end
  60.         Load InPic""right(FrameNum,3,'0')
  61.              if RC = 10 then do
  62.             Okay "Arexx Script Aborted!"
  63.             exit
  64.             end
  65.         Zap
  66.         Save OutPic""right(FrameNum,3,'0')
  67.              if RC = 10 then do
  68.             Okay "Arexx Script Aborted!"
  69.             exit
  70.             end
  71.         if FrameNum = TotalFiles+AddNum then do
  72.             RestoreSetUp
  73.             end
  74.         end
  75. return
  76.  
  77.  
  78.  
  79. GetInName:
  80.     AskFileName "Enter Name Of First Frame" "OpalPaint:Images" ""
  81.     if RC = 5 then do
  82.         Okay "Arexx Script Aborted!"
  83.         exit
  84.         end
  85.     AddNum = right(Result,3)
  86.     Length = wordlength(Result,1)
  87.     InPic = left(Result,Length-3)
  88.         AddNum = AddNum - 1
  89. return
  90.  
  91.  
  92.  
  93. GetOutName:
  94.     AskFileName "Enter Name For Saving Frames" "OpalPaint:Images" ""
  95.     if RC = 5 then do
  96.         Okay "Arexx Script Aborted!"
  97.         exit
  98.         end
  99.     OutPic = Result
  100. return
  101.  
  102.  
  103.  
  104. GetTotal:
  105.     AskProp 1 99 29 "Enter Total Number Of Frames (1-99)!"
  106.     if RC = 5  then do
  107.         Okay "Arexx Script Aborted!"
  108.         exit
  109.         end
  110.     TotalFiles = Result
  111. return
  112.  
  113.